home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 16
/
AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso
/
pd
/
anwendungen
/
rhelferv2.09
/
install
< prev
next >
Wrap
Text File
|
1998-08-16
|
3KB
|
126 lines
;Installationsskript für "Rätselhelfer V2.09" (16.08.1998)
;Namen festlegen
(SET #progname "Rätselhelfer V2.09 (Programm)")
(SET #progfile "Rätselhelfer")
(SET #dokname "Dokumentation im ASCII-Format")
(SET #dokfile "LiesMichZuerst.dok")
(SET #guidename "Dokumentation im AmigaGuide-Format")
(SET #guidefile "LiesMichZuerst.guide")
(SET #demoname "Demo.brain (enthält 5000 Begriffe)")
(SET #demofile "Demo.brain")
(SET #keyname "Keyfile (wird für Vollversion benötigt)")
(SET #keyfile "Rätsel.key")
(SET #brainname "Rätsel.brain (Vollversion)")
(SET #brainfile "Rätsel.brain")
(SET #muster "")
;Zielverzeichnis festlegen
(SET @default-dest
(ASKDIR
(PROMPT "Bitte Zielverzeichnis auswählen.\nEs wird kein neues Unterverzeichnis erzeugt.")
(HELP @askdir-help)
(DEFAULT @default-dest)
)
)
;Dateien auswählen
(SET #parts
(ASKOPTIONS
(PROMPT "Welche Dateien sollen installiert werden?")
(HELP @askoptions-help)
(IF (= (EXISTS #keyfile) 1)
(CHOICES #progname #dokname #guidename #demoname #keyname #brainname)
(CHOICES #progname #dokname #guidename #demoname)
)
)
)
;Dateigrößen aufsummieren und Dateimuster zusammensetzen
(IF (IN #parts 0)
(
(SET #alles (+ #alles (+ (GETSIZE #progfile) (GETSIZE (CAT #progfile ".info")))))
(SET #muster (CAT #progfile "|" #progfile ".info"))
)
)
(IF (IN #parts 1)
(
(SET #alles (+ #alles (+ (GETSIZE #dokfile) (GETSIZE (CAT #dokfile ".info")))))
(IF (#muster)
(SET #muster (CAT #muster "|"))
)
(SET #muster (CAT #muster #dokfile "|" #dokfile ".info"))
)
)
(IF (IN #parts 2)
(
(SET #alles (+ #alles (+ (GETSIZE #guidefile) (GETSIZE (CAT #guidefile ".info")))))
(IF (#muster)
(SET #muster (CAT #muster "|"))
)
(SET #muster (CAT #muster #guidefile "|" #guidefile ".info"))
)
)
(IF (IN #parts 3)
(
(SET #alles (+ #alles (+ (GETSIZE #demofile) (GETSIZE (CAT #demofile ".info")))))
(IF (#muster)
(SET #muster (CAT #muster "|"))
)
(SET #muster (CAT #muster #demofile "|" #demofile ".info"))
)
)
(IF (IN #parts 4)
(
(SET #alles (+ #alles (GETSIZE #keyfile)))
)
)
(IF (IN #parts 5)
(
(SET #alles (+ #alles (+ (GETSIZE #brainfile) (GETSIZE (CAT #brainfile ".info")))))
(IF (#muster)
(SET #muster (CAT #muster "|"))
)
(SET #muster (CAT #muster #brainfile "|" #brainfile ".info"))
)
)
;Fortschrittsanzeige auf 0% setzen
(COMPLETE 0)
;Datengröße und freien Plattenplatz anzeigen
(MESSAGE
"Ausgewähltes Zielverzeichnis:\n"
@default-dest
"\n\nVerfügbarer Platz auf dem Datenträger:\n"
(getdiskspace @default-dest)
"\n\nBenötigter Platz:\n"
#alles
)
;Keyfile kopieren, falls angewählt
(IF (IN #parts 4)
(
(COPYFILES
(SOURCE #keyfile)
(DEST "S:")
)
(SET #summe (+ #summe (GETSIZE #keyfile)))
(COMPLETE (/ (* #summe 100) #alles))
)
)
;restliche ausgewählte Dateien kopieren
(IF (#muster)
(FOREACH "" (CAT "(" #muster ")")
(COPYFILES
(SOURCE @each-name)
(DEST @default-dest)
)
(SET #summe (+ #summe (GETSIZE @each-name)))
(COMPLETE (/ (* #summe 100) #alles))
)
)
;fertig
(EXIT "Viel Spaß beim Rätsellösen wünscht\n\n Peter Krüger")